home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jinit.tcl < prev    next >
Encoding:
Text File  |  1995-02-09  |  1.4 KB  |  47 lines
  1. # jinit.tcl - common application initialisation procedures
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6. ######################################################################
  7.  
  8. ### TO DO
  9. ###   more configurability
  10.  
  11. ######################################################################
  12. # global variables:
  13. #
  14. global J_PREFS env
  15. if {! [info exists J_PREFS(autoposition)]} {set J_PREFS(autoposition) 0}
  16. if {! [info exists J_PREFS(confirm)]} {set J_PREFS(confirm) 1}
  17. #
  18. ######################################################################
  19.  
  20.  
  21. ######################################################################
  22. # j:jstools_init - common initialisation for jstools
  23. ######################################################################
  24.  
  25. proc j:jstools_init {} {
  26.   global J_PREFS            ;# user preferences
  27.   
  28.   catch {tk colormodel . color}        ;# colour even on a 2-bit display
  29.   
  30.   global tk_library
  31.   global env
  32.   
  33.   global NAME; set NAME $env(USER)
  34.   global HOME; set HOME $env(HOME)
  35.   
  36.   j:wm_client                ;# set client hostname
  37.   j:wm_command                ;# set client command string
  38.   
  39.   # read in standard jstools preferences:
  40.   
  41.   j:read_global_prefs
  42.   
  43.   # following use users prefs, bindings files:
  44.   j:tb:init Text            ;# uses prefs, ~/.tk/textbindings.tcl
  45.   j:eb:init Entry            ;# uses prefs, ~/.tk/entrybindings.tcl
  46. }
  47.